#!/usr/bin/perl

###########################################
#Author :  DebugProject _Brebion
#Created : 02/03/07
#Modified : 05/03/07
#Script : Scipt to lanch the debuggeur
###########################################

#Verification de la ligne de commande
if(scalar(@ARGV) != 5){die "[usage : <option> <path> <namejardebug> <namejarappli> <fileConfig>]"}	

$option= $ARGV[0];
$path= $ARGV[1];
$namejardebug= $ARGV[2];
$namejarappli= $ARGV[3];
$fileConfig = $ARGV[4];

$hote="host";
$slash="/";

print ("#get back the list of the stations\n");

#vérification que le fichier d'entree existe bien
if(!(-e $fileConfig)){die "[The file input doesn't exist]"}


#Ouverture des handles
open(INPUT,"<$fileConfig") || die "[Open file $fileConfig impossible]";

#creation table of stations
@tabStation;

while($ligne=<INPUT>){
	$ligne =~ /(.*);/;
	$tabStation[$#tabStation + 1] = $1;
}

$nbElement=scalar(@tabStation);

print ("#launch the distributed application\n");

for($i=0;$i<$nbElement;$i++){
	$i = $i+1;
	$jardir = $path.$hote.$i.$slash;
	$stringdeb = $path.$hote.$i.$slash.$namejardebug;
	$stringapp = $path.$hote.$i.$slash.$namejarappli;
	$i = $i-1;
	system ("ssh @tabStation[$i] \"(cd $jardir; java -jar $stringdeb $option $stringapp)\"&") ;

}

close INPUT

